home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 7 / Amoszine 7 (Disk 3 of 3).adf / ARCHIVES / AJC_More_Source.lha / AJC-JDItalicsRoutine.AMOS / AJC-JDItalicsRoutine.amosSourceCode
AMOS Source Code  |  1995-06-01  |  900b  |  55 lines
  1. '
  2. ' ** THIS PROGRAM REQUIRES THE BRILLIANT "JD" EXTENSION!! ** 
  3. '
  4. ' Italics (once on ONE line only) Procedure
  5. ' Marked Between "_" Characters - change this to suit your needs!  
  6. ' By Andrew Campbell >8^)
  7. '
  8.  
  9.  
  10. Global _FIRST$,_LAST$,_TO_ITALIC$,_OVERLAY$,A$
  11.  
  12. Screen Open 0,640,200,2,Hires
  13. Curs Off : Flash Off : Hide On : Cls 0
  14. Palette 0,$FFF
  15.  
  16. _TO_ITALIC$="This is an example of AJC's _italics searching_ procedure..."
  17. _ITALS[_TO_ITALIC$]
  18.  
  19.  
  20. Text 10,100,_TO_ITALIC$
  21. Gr Writing 0
  22. Set Text 4
  23. Text 10,100,_OVERLAY$
  24. Set Text 0
  25. Gr Writing 1
  26.  
  27. Wait 100
  28. Edit 
  29.  
  30. Procedure _ITALS[A$]
  31.  
  32. _BUG$=Right$(A$,1)
  33.  
  34. _FIRST=Instr(A$,"_",0)
  35. _LAST=Instr(A$,"_",_FIRST+1)
  36. A$=A$-"_"
  37.  
  38. _OVERLAY$=Mid$(A$,_FIRST,_LAST-_FIRST)
  39.  
  40. L=Len(_OVERLAY$)-1
  41. S$=Space$(L)
  42.  
  43. NEW$= Extension_22_01FE(A$,_FIRST,L)
  44. A$=NEW$
  45.  
  46. NEW$= Extension_22_0210(A$,_FIRST,S$)
  47. A$=NEW$
  48.  
  49. S$=Space$(_FIRST-1)
  50. S$=S$+_OVERLAY$
  51.  
  52. _OVERLAY$=S$
  53. _TO_ITALIC$=A$+_BUG$
  54.  
  55. End Proc